module mod_params
implicit none 


integer :: global_param_size = 10

type, public :: t_params
      double precision ::  OMEGA,H,OMEGAB, OMEGANU,w0,wa !hentet fra common-blocken i power_nu
      double precision ::  OMEGAL, T_0, N_nu, z, nsval !parametere opprinnelig deklarerte i power_nu

      double precision, dimension(global_param_size) :: params

end type t_params

contains 

subroutine params_setup(params)
  type(t_params), intent(inout) :: params
  params(1) = OMEGAB
  params(2) = OMEGANU ! 0.01 omega_nu
  params(3) = w0 ! w0
  params(4) = wa ! wa
  params(5) = 1.0 ! amplitude
end subroutine params_setup





end module mod_params
